﻿Public Class Score
    Private nombreFicheros As String() = {"scrumquestpuntuaciones.txt", "ataquedelownerpuntuaciones.txt"}
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Main.cambio(0)
    End Sub

    Private puntuaciones As New List(Of Integer)
    Private nombres As New List(Of String)
    Public Sub cargar(ByVal njuego As Integer)
        Dim fich As IO.StreamReader = Nothing
        Try
            If IO.File.Exists(nombreFicheros(njuego)) Then
                fich = New IO.StreamReader(nombreFicheros(njuego))
                nombres.Clear()
                puntuaciones.Clear()
                While Not fich.EndOfStream
                    nombres.Add(fich.ReadLine)
                    puntuaciones.Add(fich.ReadLine)
                End While
                fich.Close()
            Else
                Dim fich1 As IO.StreamWriter
                fich1 = New IO.StreamWriter(nombreFicheros(njuego), 0)
                For i = 0 To 9
                    fich1.WriteLine("AAA")
                    fich1.WriteLine("0")
                Next
                fich1.Close()
            End If
        Catch ex As Exception
            fich.Close()
            MsgBox("ERROR, LAS PUNTUACIONES SE REINICIARAN")
            Dim fich1 As IO.StreamWriter

            fich1 = New IO.StreamWriter(nombreFicheros(njuego), 0)
            nombres.Clear()
            puntuaciones.Clear()

            For i = 0 To 9
                nombres.Add("AAA")
                puntuaciones.Add(0)
                fich1.WriteLine("AAA")
                fich1.WriteLine("0")
            Next
            fich1.Close()

        End Try

    End Sub
    Public Sub guardar(ByVal njuego As Integer)
        Dim fich As IO.StreamWriter
        fich = New IO.StreamWriter(nombreFicheros(njuego), 0)
        For i = 0 To 9
            fich.WriteLine(nombres(i))
            fich.WriteLine(puntuaciones(i))
        Next
        fich.Close()
    End Sub
    Public Sub comprobar(ByVal puntuacion As Integer, ByVal njuego As Integer)
        cargar(njuego)
        For i = 0 To 9
            If puntuacion > puntuaciones(i) Then
                If i <> 9 Then
                    For j = 9 To i + 1 Step -1
                        nombres(j) = nombres(j - 1)
                        puntuaciones(j) = puntuaciones(j - 1)
                    Next
                End If
                puntuaciones(i) = puntuacion
                Do
                    nombres(i) = InputBox("Introduce tu nombre (no mayor de 8 caracteres)")
                Loop While nombres(i) = "" Or nombres(i).Length > 8
                guardar(njuego)
                Exit Sub
            End If
        Next
    End Sub

    Private Sub Score_Show(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        cargar(0)
        Label2.Text = nombres(0)
        Label2.Left = 153 - Label2.Width
        Label3.Text = nombres(1)
        Label3.Left = 153 - Label3.Width
        Label4.Text = nombres(2)
        Label4.Left = 153 - Label4.Width
        Label5.Text = nombres(3)
        Label5.Left = 153 - Label5.Width
        Label6.Text = nombres(4)
        Label6.Left = 153 - Label6.Width
        Label7.Text = nombres(5)
        Label7.Left = 153 - Label7.Width
        Label8.Text = nombres(6)
        Label8.Left = 153 - Label8.Width
        Label9.Text = nombres(7)
        Label9.Left = 153 - Label9.Width
        Label10.Text = nombres(8)
        Label10.Left = 153 - Label10.Width
        Label11.Text = nombres(9)
        Label11.Left = 153 - Label11.Width

        Label12.Text = "-  " & puntuaciones(0)
        Label13.Text = "-  " & puntuaciones(1)
        Label14.Text = "-  " & puntuaciones(2)
        Label15.Text = "-  " & puntuaciones(3)
        Label16.Text = "-  " & puntuaciones(4)
        Label17.Text = "-  " & puntuaciones(5)
        Label18.Text = "-  " & puntuaciones(6)
        Label19.Text = "-  " & puntuaciones(7)
        Label20.Text = "-  " & puntuaciones(8)
        Label21.Text = "-  " & puntuaciones(9)
        cargar(1)
        Label22.Text = nombres(0)
        Label22.Left = 345 - Label22.Width
        Label23.Text = nombres(1)
        Label23.Left = 345 - Label23.Width
        Label24.Text = nombres(2)
        Label24.Left = 345 - Label24.Width
        Label25.Text = nombres(3)
        Label25.Left = 345 - Label25.Width
        Label26.Text = nombres(4)
        Label26.Left = 345 - Label26.Width
        Label27.Text = nombres(5)
        Label27.Left = 345 - Label27.Width
        Label28.Text = nombres(6)
        Label28.Left = 345 - Label28.Width
        Label29.Text = nombres(7)
        Label29.Left = 345 - Label29.Width
        Label30.Text = nombres(8)
        Label30.Left = 345 - Label30.Width
        Label31.Text = nombres(9)
        Label31.Left = 345 - Label31.Width
        Label32.Text = "-  " & puntuaciones(0)
        Label33.Text = "-  " & puntuaciones(1)
        Label34.Text = "-  " & puntuaciones(2)
        Label35.Text = "-  " & puntuaciones(3)
        Label36.Text = "-  " & puntuaciones(4)
        Label37.Text = "-  " & puntuaciones(5)
        Label38.Text = "-  " & puntuaciones(6)
        Label39.Text = "-  " & puntuaciones(7)
        Label40.Text = "-  " & puntuaciones(8)
        Label41.Text = "-  " & puntuaciones(9)

    End Sub
End Class